home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / Apple II Getting down to Basic / MENU.bas < prev    next >
Encoding:
BASIC Source File  |  1983-11-14  |  3.7 KB  |  107 lines
  1. 1  ONERR  GOTO 6000
  2. 2  POKE 104,8: POKE 103,1
  3. 3  PRINT  CHR$(21)
  4. 4  TEXT : GOSUB 5000
  5. 5  POKE 34,0: POKE 33,40: POKE  -16368,0
  6. 10  HOME :T$ = "Getting Down to BASIC Menu"
  7. 15  GOSUB 1000
  8. 25  FOR U = 1 TO 40: PRINT "_";: NEXT U
  9. 30  PRINT : PRINT "  1.  Introduction"
  10. 40  PRINT : PRINT "  2.  Printing Numbers and Calculations"
  11. 50  PRINT : PRINT "  3.  Printing Words"
  12. 60  PRINT : PRINT "  4.  Writing Programs"
  13. 70  PRINT : PRINT "  5.  Saving Programs"
  14. 80  PRINT : PRINT "  6.  All About Variables"
  15. 100  PRINT : PRINT "  7.  Quit"
  16. 103 T = 0
  17. 105  FOR I = 1 TO 7
  18. 106  IF  PEEK(I +927) = 1  THEN  HTAB (1): VTAB 2 +(2 *I): PRINT "*"
  19. 107  IF  PEEK(I +927) = 1  THEN J = I +1:T = 1
  20. 110  NEXT I
  21. 115  IF T < >1  THEN J = 1
  22. 120  GOSUB 2000
  23. 145  VTAB 17
  24. 150  PRINT : PRINT "Type a number, or select with the UP or DOWN ARROW key. Then press RETURN."
  25. 160  FOR U = 1 TO 40: PRINT "_";: NEXT U
  26. 165  PRINT : PRINT "* marks a topic you have completed"
  27. 170  VTAB 19: HTAB 35: CALL  -868: GET CH$
  28. 175  IF  ASC(CH$) = 13  THEN  GOTO 280
  29. 176  IF  ASC(CH$) < >10  AND  ASC(CH$) < >11  THEN 185
  30. 177  IF  ASC(CH$) = 10  THEN K = J:J = J +1
  31. 178  IF  ASC(CH$) = 11  THEN K = J:J = J -1
  32. 179  IF J = 8  THEN J = 1
  33. 180  IF J = 0  THEN J = 7
  34. 181  GOSUB 2200: GOSUB 2000: GOTO 170
  35. 185  IF  ASC(CH$) = 81  OR  ASC(CH$) = 113  THEN K = J:J = 7: GOTO 181
  36. 190  IF  ASC(CH$) <49  OR  ASC(CH$) >55  THEN 170
  37. 193  VTAB 19: HTAB 35: PRINT CH$:K = J:J =  ASC(CH$) -48: GOSUB 2200: GOSUB 2000
  38. 195  VTAB 19: HTAB 36: GET RE$
  39. 200  IF  ASC(RE$) = 13  THEN 280
  40. 205  IF  ASC(RE$) = 8  THEN 170
  41. 210  IF  ASC(RE$) = 10  THEN K = J:J = J +1: GOTO 179
  42. 215  IF  ASC(RE$) = 11  THEN K = J:J = J -1: GOTO 179
  43. 220  IF  ASC(RE$) <49  OR  ASC(RE$) >55  THEN 195
  44. 225 K = J:J =  ASC(RE$) -48: GOSUB 2200: GOSUB 2000: GOTO 170
  45. 280  HOME : VTAB 10: HTAB 12: PRINT "Please wait...."
  46. 290  ON J GOTO 310,320,330,340,350,360,370
  47. 310  PRINT : PRINT  CHR$(4);"RUN INTRO"
  48. 320  PRINT : PRINT  CHR$(4);"RUN PRINT"
  49. 330  PRINT : PRINT  CHR$(4);"RUN WORDS"
  50. 340  PRINT : PRINT  CHR$(4);"RUN PROGRAM"
  51. 350  PRINT : PRINT  CHR$(4);"RUN RUNSAVER"
  52. 360  PRINT : PRINT  CHR$(4);"RUN RUNNUMERIC"
  53. 370  PRINT : PRINT  CHR$(4);"RUN QUIT"
  54. 999  END 
  55. 1000 H = (40 - LEN(T$))/2
  56. 1010  HTAB H: PRINT T$
  57. 1020  RETURN 
  58. 1560  REM IFVAL (CH$) < 1 OR  VAL (C            H$) > 7 THEN  VTAB 20: HTAB             19: CALL  - 868: GOTO 175   
  59. 2000  ON J GOSUB 2110,2120,2130,2140,2150,2160,2170
  60. 2020  VTAB 2 +(J *2): HTAB 6: PRINT T$;
  61. 2110 T$ = "<INTRODUCTION>"
  62. 2115  RETURN 
  63. 2120 T$ = "<PRINTING NUMBERS AND CALCULATIONS>"
  64. 2125  RETURN 
  65. 2130 T$ = "<PRINTING WORDS>"
  66. 2135  RETURN 
  67. 2140 T$ = "<WRITING PROGRAMS>"
  68. 2145  RETURN 
  69. 2150 T$ = "<SAVING PROGRAMS>"
  70. 2155  RETURN 
  71. 2160 T$ = "<ALL ABOUT VARIABLES>"
  72. 2165  RETURN 
  73. 2170 T$ = "<QUIT>"
  74. 2175  RETURN 
  75. 2200  ON K GOSUB 2210,2220,2230,2240,2250,2260,2270
  76. 2205  VTAB 2 +(K *2): HTAB 6: PRINT T$;
  77. 2210 T$ = " Introduction "
  78. 2215  RETURN 
  79. 2220 T$ = " Printing Numbers and Calculations "
  80. 2225  RETURN 
  81. 2230 T$ = " Printing Words "
  82. 2235  RETURN 
  83. 2240 T$ = " Writing Programs "
  84. 2245  RETURN 
  85. 2250 T$ = " Saving Programs "
  86. 2255  RETURN 
  87. 2260 T$ = " <CTRL-A>All About Variables "
  88. 2265  RETURN 
  89. 2270 T$ = " Quit "
  90. 2275  RETURN 
  91. 5000  FOR I = 768 TO 861: READ A: POKE I,A: NEXT I
  92. 5010  DATA 173,50,190,72,173,51,190  
  93. 5020  DATA 72,169,30,141,50,190,169 
  94. 5030  DATA 3,141,51,190,32,111,253  
  95. 5040  DATA 104,141,51,190,104,141,50 
  96. 5050  DATA 190,96,32,27,253,201,155 
  97. 5060  DATA 240,31,201,141,208,35,96  
  98. 5070  DATA 234,234,234,162,0,32,117 
  99. 5080  DATA 253,160,2,138,145,105,200 
  100. 5090  DATA 169,0,145,105,200,169,2 
  101. 5100  DATA 145,105,76,57,213,141,0 
  102. 5110  DATA 2,169,141,162,1,96,201 
  103. 5120  DATA 136,240,8,201,149,240,04 
  104. 5130  DATA 201,160,144,1,96,169,160
  105. 5140  DATA 56,176,192 
  106. 5150  RETURN 
  107. 6000  PRINT : PRINT  CHR$(4);"RUN STARTUP"